home *** CD-ROM | disk | FTP | other *** search
/ Into That Dark Night / Into That Dark Night.iso / pc / YadVashem / Database / LEXSHOW.dxr / 00003_Update Lex Members.ls < prev    next >
Encoding:
Text File  |  2003-03-14  |  908 b   |  24 lines
  1. global gDBItem, gDBType, gDataPath, gPathDel, gTextSprite, gCurHyperList, gMovieHyperList, gItemList
  2.  
  3. on updateLex
  4.   set tmpName to "TXT" & gDBItem
  5.   put tmpName
  6.   set the member of sprite gTextSprite to the number of member tmpName of castLib "DBCast"
  7.   set gCurHyperList to getaProp(gHyperList, tmpName)
  8.   put gCurHyperList
  9.   set tmpMovie to convertToUpper(the movie)
  10.   setaProp(gMovieHyperList, tmpMovie, gCurHyperList)
  11.   set tmpName to gDataPath & "Images" & gPathDel & "lexicon" & gPathDel & "pic" & gDBItem & ".pct"
  12.   put tmpName
  13.   set the fileName of member "picHolder" to tmpName
  14.   set tmpPicTxt to getaProp(gPicTxtList, gDBItem)
  15.   put tmpPicTxt into field "txtHolder"
  16.   set curTitleL to getaProp(gItemList, gDBItem)
  17.   if not voidp(curTitleL) then
  18.     set curTitle to getAt(curTitleL, 1)
  19.     put curTitle
  20.     put curTitle into field "TitleTemplate" of castLib "internal"
  21.   end if
  22.   updateStage()
  23. end
  24.